home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / junk / conicinv.T next >
Encoding:
Text File  |  1994-08-02  |  561 b   |  17 lines
  1. .geometry "version 0.1";
  2. v1 = .free(0.0108696, 0.00271739, .L0, "1");
  3. v2 = .free(0.211957, 0.00815217, .L0);
  4. v3 = .free(-0.0788044, -0.255435, .L0);
  5. c1 = .c.vv(v2, v3, .L0);
  6. vv1 = .v.vcinv(v1, c1);
  7. v4 = .free(0.0407609, 0.11413, .L0, "4");
  8. v5 = .free(0.30163, 0.271739, .L0, "5");
  9. v6 = .free(0.241848, 0.154891, .L0, "2");
  10. v7 = .free(0.415761, 0.160326, .L0, "3");
  11. vv2 = .v.vcinv(v6, c1);
  12. vv3 = .v.vcinv(v7, c1);
  13. vv4 = .v.vcinv(v4, c1);
  14. vv5 = .v.vcinv(v5, c1);
  15. cc1 = .conic.vvvvv(v1, v6, v7, v5, v4, .red);
  16. cc2 = .conic.vvvvv(vv1, vv2, vv3, vv4, vv5, .yellow);
  17.